//Speaker Test
loop	cpfa	sp_sample	noteA4	ind
	mult sp_sample sp_sample volume
	add	ind	ind	one
	call	spk 	spk_ra
	be	reset	ind	lv
	be	loop	test	test
	halt
reset	sub	ind	ind	lv
	be	loop zero ind
	halt

volume .data 5
noteA4	.data	0
	.data	346
	.data	652
	.data	881
	.data	1005
	.data	1011
	.data	897
	.data	677
	.data	376
	.data	32
	.data	-316
	.data	-627
	.data	-864
	.data	-999
	.data	-1015
	.data	-912
	.data	-700
	.data	-406	
	.data	-64
ind	.data	0
note .data	347
lv	.data	20
test	.data	31

#include spkDriver.e
#include constants.e